home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
lfgtpwd.zip
/
FORGETPW.PPS
< prev
next >
Wrap
Text File
|
1993-05-18
|
3KB
|
79 lines
string Answer,Phone,City,Password
GETUSER
print "@CLS@"
println "@X5FIS @X0A Current User ID: @X0B@USER@"
println "@X5FTHIS @X0A City/State : @X0B@CITY@"
println "@X5FYOU? @X0A Last Time On : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
println
Answer = ""
inputyn "Does the above information belong to you",Answer,0Eh
if (Answer <> YesChar()) goto notyou
println "@CLS@@X0FIf you are a registered user on this system@X07 and simply forgot your password"
println "then we can help you out, by changing your password for you, if you wil first"
println "verify the following information for us:"
println
println "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
println "@X38│@X3E a) Your voice @X3Fphone number@X3E @X3B│@X07"
println "@X38│@X3E b) The @X3Fnew password@X3E you would like to use on this system @X3B│@X07"
println "@X38│ @X3B│@X07"
println "@X38│@X31We need @XBFBOTH@X31 pieces of information in order to change your password!! @X3B│@X07"
println "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
println
Answer = ""
adjtime 5
Phone = ""
Password = ""
:askquestions
println
println
inputtext "What is your voice phone number",Phone,0Eh,20
println
inputtext "What would you like your NEW PASSWORD to be",Password,0Eh,12
println
println
Answer = ""
inputyn "Is all of the above information correct",Answer,0Eh
println
if (Answer <> YesChar()) goto askquestions
println "@CLS@@X03"
println "Your answers will be placed into a COMMENT where the Sysop can read them"
println "and process your request. This is usually done within a few hours."
println
println "@X0FYou will now be placed into the message editor where you may provide any"
println "other comments and/or edit the answers you have given."
println
more
kbdstuff "Y"+chr(13)
if ((U_FSEP = 1) & (U_FSE = 0)) kbdstuff "N"+chr(13)
kbdstuff "Voice Number : "+Phone+chr(13)
kbdstuff "New Password : "+Password+chr(13)
kbdstuff "I forgot my password! Could you verify me and change it?"+chr(13)
end
:notyou
println
println "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
println "different user-id, perhaps adding a middle initial to make your logon-id unique"
println "for this system."
:explain
println "@X0A"
println "Here's an example of how to log on with a middle initial:"
println
println " @X0EEnter your first name? @X07JOHN Q. PUBLIC"
println
println "@X0AOr any other variation on your user-id may work."
println
wait
println
println "Please hang up now and try logging in again."
println
kbdstuff "N"+chr(13)
goodbye